﻿Public Class DMPhongKhamBenhVien
    Public Sub New()
        InitializeComponent()
        Me.setObj(Me.PCV_CLINICDataSet_Don, Me.PCV_CLINICDataSet_Don.DMPhongKhamBenhVien, Me.DMPhongKhamBenhVienBindingSource, Me.TableAdapterManager, DMPhongKhamBenhVienTableAdapter, MaITextEdit)
    End Sub
    Private Sub DMPhongKhamBenhVien_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PCV_CLINICDataSet_Don.DMPhuongXa' table. You can move, or remove it, as needed.
        Me.DMPhuongXaTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMPhuongXa)
        Me.DMQuanHuyenTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMQuanHuyen)
        Me.DMTinhTrangTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMTinhTrang)
        Me.DMTinhThanhTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMTinhThanh)
        Me.DMQuocGiaTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMQuocGia)
        Me.DMPhongKhamBenhVienTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMPhongKhamBenhVien)

    End Sub

    Private Shadows Sub BarButtonItemBaoCao_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBaoCao.ItemClick
        Dim report As Rp_DMPhongKhamBenhVien = New Rp_DMPhongKhamBenhVien
        report.ShowRibbonPreview()
    End Sub

    Private Sub PhuongxaISearchLookupEdit_Enter(sender As Object, e As EventArgs) Handles PhuongxaISearchLookupEdit.Enter
        Me.DMPhuongXaBindingSource.Filter = "maquanhuyen='" & Me.QuanhuyenISearchLookupEdit.EditValue.ToString & "'"
    End Sub

    Private Sub QuanhuyenISearchLookupEdit_Enter(sender As Object, e As EventArgs) Handles QuanhuyenISearchLookupEdit.Enter
        Me.DMQuanHuyenBindingSource.Filter = "matinhthanh='" & Me.TinhthanhISearchLookupEdit.EditValue.ToString & "'"
    End Sub

    Private Sub TinhthanhISearchLookupEdit_Enter(sender As Object, e As EventArgs) Handles TinhthanhISearchLookupEdit.Enter
        Me.DMTinhThanhBindingSource.Filter = "maquocgia='" & Me.QuocgiaISearchLookupEdit.EditValue.ToString & "'"
    End Sub
End Class
